1 Imports System.Windows.Forms
2
3 Public Class MDIMain
4 Dim minMaintenance As Integer
5 Dim minPurchase As Integer
6 Dim minSales As Integer
7 Dim critical As Integer
8
9
10 Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs)
11 ' Create a new instance of the child form.
12 Dim ChildForm As New System.Windows.Forms.Form
13 ' Make it a child of this MDI form before showing it.
14 ChildForm.MdiParent = Me
15
16 m_ChildFormNumber += 1
17 ChildForm.Text = "Window " & m_ChildFormNumber
18
19 ChildForm.Show()
20 End Sub
21
22 Private Sub OpenFile(ByVal sender As Object, ByVal e As EventArgs)
23 Dim OpenFileDialog As New OpenFileDialog
24 OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
25 OpenFileDialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
26 If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
27 Dim FileName As String = OpenFileDialog.FileName
28 ' TODO: Add code here to open the file.
29 End If
30 End Sub
31
32 Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
33 Dim SaveFileDialog As New SaveFileDialog
34 SaveFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
35 SaveFileDialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
36
37 If (SaveFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
38 Dim FileName As String = SaveFileDialog.FileName
39 ' TODO: Add code here to save the current contents of the form to a file.
40 End If
41 End Sub
42
43
44 Private Sub ExitToolsStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
45 Me.Close()
46 End Sub
47
48 Private Sub CutToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
49 ' Use My.Computer.Clipboard to insert the selected text or images into the clipboard
50 End Sub
51
52 Private Sub CopyToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
53 ' Use My.Computer.Clipboard to insert the selected text or images into the clipboard
54 End Sub
55
56 Private Sub PasteToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
57 'Use My.Computer.Clipboard.GetText() or My.Computer.Clipboard.GetData to retrieve information from the clipboard.
58 End Sub
59
60 Private Sub CascadeToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
61 Me.LayoutMdi(MdiLayout.Cascade)
62 End Sub
63
64 Private Sub TileVerticalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
65 Me.LayoutMdi(MdiLayout.TileVertical)
66 End Sub
67
68 Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
69 Me.LayoutMdi(MdiLayout.TileHorizontal)
70 End Sub
71
72 Private Sub ArrangeIconsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
73 Me.LayoutMdi(MdiLayout.ArrangeIcons)
74 End Sub
75
76 Private Sub CloseAllToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
77 ' Close all child forms of the parent.
78 For Each ChildForm As Form In Me.MdiChildren
79 ChildForm.Close()
80 Next
81 End Sub
82
83 Private m_ChildFormNumber As Integer
84
85 Private Sub MDIMain_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
86 'aget()
87 End Sub
88
89 Private Sub MDIMain_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
90 If MsgBox("Do you really want to exit the system ??", MsgBoxStyle.Exclamation + MsgBoxStyle.YesNo, "Sales and Inventory") = MsgBoxResult.No Then
91 e.Cancel = 1
92 Else
93 sqlSTR = "UPDATE TBL_Audit_Log SET LOGOUT ='" & TimeOfDay & "' WHERE User_ID =" & xUser_ID & " AND LOG_ID=" & LOGID
94 ExecuteSQLQuery(sqlSTR)
95
96 End If
97 End Sub
98
99 Private Sub MDIParent1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
100
101 'If username = "" Then
102 ' End
103 ' End If
104 'xUser_Access = "Administrator"
105 checkServer()
106 Me.lblUser.Text = username
107 MDIDISABLED()
108 ExecuteSQLQuery("SELECT * FROM TBL_Globaldata")
109 Me.WindowState = FormWindowState.Maximized
110 PanelAdvisory.Width = Me.Width
111 PanelHoldAdvisory.Width = Me.Width
112
113 If sqlDT.Rows.Count > 0 Then
114 VAT = sqlDT.Rows(0)("BussVat")
115 ParamCompanyName.Value = sqlDT.Rows(0)("BussName")
116 ParamCompanyLoc.Value = sqlDT.Rows(0)("BussLocation")
117 ParamCompanyContact.Value = sqlDT.Rows(0)("BussContact")
118 ParamCompanyTIN.Value = sqlDT.Rows(0)("Tin")
119 End If
120 With FrmBG
121 .MdiParent = Me
122 '.WindowState = Me.WindowState
123 .WindowState = FormWindowState.Maximized
124 '.pics.Left = (Me.Width / 2) - (.pics.Width / 2)
125 'pics.Left = (Me.Width / 2) - (pics.Width / 2)
126 '.Width = Me.Width - (ToolStrip1.Width - TSHold.Width)
127 .Show()
128 End With
129 With TSHoldRight
130 PanelShortCut.Top = .Top - 15
131 PanelShortCut.Left = .Left - 1
132 End With
133 FrmLOGIN.ShowDialog()
134 LinkMaintain_LinkClicked(0, AcceptButton)
135 LinkPurchasing_LinkClicked(0, AcceptButton)
136 LinkSales_LinkClicked(0, AcceptButton)
137 cmdLock.Enabled = True
138 RefreshList(ActiveMdiChild.Name)
139 FrmAbout.ShowDialog()
140 'MsgBox(Me.Width)
141 End Sub
142
143 Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
144 If MsgBox("Do you really want to exit the system ??", MsgBoxStyle.Exclamation + MsgBoxStyle.YesNo, "Sales and Inventory") = MsgBoxResult.Yes Then
145 End
146 End If
147 End Sub
148
149 Private Sub UserInformationFileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UserInformationFileToolStripMenuItem.Click
150 'If x_Access(xUser_Access) Then
151 Audit_Trail(xUser_ID, TimeOfDay, "View User Account Info")
152 FrmSysUser.ShowDialog()
153 ' End If
154 End Sub
155
156 Private Sub SuppliersToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SuppliersToolStripMenuItem.Click
157 'ToolStrip1.Visible = True
158 cmdManageSuppliers_Click(0, AcceptButton)
159 End Sub
160
161 Private Sub SetCategoryFileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SetCategoryFileToolStripMenuItem.Click
162 cmdProductListing_Click(0, AcceptButton)
163 End Sub
164
165 Private Sub SetItemFileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SetItemFileToolStripMenuItem.Click
166 'If x_Access(xUser_Access) Then
167 With lstShortCut.Items
168 If Not FrmCatITEMList.IsHandleCreated Then
169 .Add("Category Item List", 18)
170 End If
171 End With
172 FrmCatITEMList.MdiParent = Me
173 FrmCatITEMList.Width = Me.Width
174 FrmCatITEMList.Height = Me.Height
175 FrmCatITEMList.Show()
176 'End If
177 End Sub
178
179 Private Sub SuppliersProductToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SuppliersProductToolStripMenuItem.Click
180 If x_Access(xUser_Access) Then
181 With lstShortCut.Items
182 If Not FrmSUPPLIERSPRODUCT.IsHandleCreated Then
183 .Add("Supplier Products", 19)
184 End If
185 End With
186 FrmSUPPLIERSPRODUCT.MdiParent = Me
187 FrmSUPPLIERSPRODUCT.Width = Me.Width
188 FrmSUPPLIERSPRODUCT.Height = Me.Height
189 FrmSUPPLIERSPRODUCT.Show()
190 End If
191
192 End Sub
193
194 Private Sub StockOrderToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StockOrderToolStripMenuItem.Click
195 cmdOrderReceive_Click(0, AcceptButton)
196 End Sub
197
198 Private Sub StockReceiveFormToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
199 FrmPURCHASEORDER_RECEIVE.MdiParent = Me
200 FrmPURCHASEORDER_RECEIVE.Width = Me.Width
201 FrmPURCHASEORDER_RECEIVE.Height = Me.Height
202 FrmPURCHASEORDER_RECEIVE.Show()
203 End Sub
204
205 Private Sub StockMonitoringToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StockMonitoringToolStripMenuItem.Click
206 cmdStockMonitoring_Click(0, AcceptButton)
207 End Sub
208
209 Private Sub BusinessInformationToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BusinessInformationToolStripMenuItem.Click
210 If x_Access(xUser_Access) Then
211 FrmBUSINESS_INFO.ShowDialog()
212 End If
213 End Sub
214
215 Private Sub CashieringToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CashieringToolStripMenuItem.Click
216 cmdCashiering_Click(0, AcceptButton)
217 End Sub
218
219 Private Sub SalesReceiptToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalesReceiptToolStripMenuItem.Click
220 cmdSalesReceipt_Click(0, AcceptButton)
221 End Sub
222
223 Private Sub SupplierProfileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SupplierProfileToolStripMenuItem.Click
224 Dim Report As New FrmREPORTS
225 If x_Access(xUser_Access) Then
226 Audit_Trail(xUser_ID, TimeOfDay, "Print Report - Suppliers Listing")
227 globalFRM = "FrmSuppliersList"
228 Rpt_SqlStr = "SELECT * FROM TBL_Suppliers ORDER BY SuppName"
229 Report.Show()
230 'FrmREPORTS.Show()
231 End If
232 End Sub
233
234 Private Sub SupplierProductsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SupplierProductsToolStripMenuItem.Click
235 Dim Report As New FrmREPORTS
236 If x_Access(xUser_Access) Then
237 Audit_Trail(xUser_ID, TimeOfDay, "Print Report - Suppliers Products")
238 globalFRM = "frmsuppliersproduct"
239 Rpt_SqlStr = "SELECT * FROM TBL_Suppliers ORDER BY SuppName "
240 Report.Show()
241 'FrmREPORTS.Show()
242 End If
243
244 End Sub
245
246 Private Sub PurchaseOrderToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PurchaseOrderToolStripMenuItem.Click
247 Dim report As New FrmREPORTSDated
248 ' If x_Access(xUser_Access) Then
249 'Audit_Trail(xUser_ID, "Print Report - Purchase Order Stocks")
250 globalFRM = "FrmPURCHASEORDER"
251 'FrmREPORTSDated.MdiParent = Me
252 'FrmREPORTSDated.Width = Me.Width
253 'FrmREPORTSDated.Height = Me.Height
254 report.Show()
255 'FrmPURCHASE_ORDER_PRINT.ShowDialog()
256 'End If
257 End Sub
258
259 Private Sub PurchaseReceiveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PurchaseReceiveToolStripMenuItem.Click
260 Dim report As New FrmREPORTSDated
261 ' If x_Access(xUser_Access) Then
262 globalFRM = "frmpurchaseorder_receive"
263 report.Show()
264 ' FrmRECEIVE_ORDER_PRINT.ShowDialog()
265
266 ' End If
267
268 End Sub
269
270 Private Sub StockBalancesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StockBalancesToolStripMenuItem.Click
271 Dim Report As New FrmREPORTS
272 'If x_Access(xUser_Access) Then
273 Audit_Trail(xUser_ID, TimeOfDay, "Print Report - Current Stocks Balances")
274 globalFRM = "FrmSTOCKMONITORINGBALANCES"
275 Rpt_SqlStr = "SELECT * FROM TBL_Stocks_Balances"
276 Report.Show()
277 'FrmREPORTS.Show()
278 'End If
279 End Sub
280
281 Private Sub SalesCollectionToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalesCollectionToolStripMenuItem.Click
282 'FrmSALES_COLLECTION_PRINT.ShowDialog()
283 Dim report As New FrmREPORTSDated
284 'If x_Access(xUser_Access) Then
285 'Audit_Trail(xUser_ID, "Print Report - Purchase Order Stocks")
286 globalFRM = "FrmSales_Collection"
287 'FrmREPORTSDated.MdiParent = Me
288 'FrmREPORTSDated.Width = Me.Width
289 'FrmREPORTSDated.Height = Me.Height
290 report.Show()
291 'FrmPURCHASE_ORDER_PRINT.ShowDialog()
292 ' End If
293 End Sub
294
295 Private Sub SalesCollectionReportVOIDToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalesCollectionReportVOIDToolStripMenuItem.Click
296 'FrmSALES_COLLECTION_VOID_PRINT.ShowDialog()
297 Dim report As New FrmREPORTSDated
298 If x_Access(xUser_Access) Then
299 globalFRM = "frmcollection_void"
300 report.Show()
301 End If
302 End Sub
303
304 Private Sub CollectionSummaryReportToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CollectionSummaryReportToolStripMenuItem.Click
305 'FrmCOLLECTION_SUMMARY.ShowDialog()
306 Dim report As New FrmREPORTSDated
307 'If x_Access(xUser_Access) Then
308 globalFRM = "frmcollection_summary"
309 report.Show()
310 ' End If
311 End Sub
312
313 Private Sub ProductsReorderPointToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductsReorderPointToolStripMenuItem1.Click
314 Dim Report As New FrmREPORTS
315 'If x_Access(xUser_Access) Then
316 Audit_Trail(xUser_ID, TimeOfDay, "Print Report - Products Reorder Level")
317 globalFRM = "FrmPRODUCTS_REORDER"
318 Rpt_SqlStr = "SELECT * FROM TBL_Category_Item_File " & _
319 "WHERE Item_ID IN (SELECT Item_ID FROM TBL_Stocks_Balances WHERE Item_QTY <= Item_Reorder_Point)"
320 Report.Show()
321 'FrmREPORTS.Show()
322 'End If
323 End Sub
324
325 Private Sub BarcodeFormToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BarcodeFormToolStripMenuItem.Click
326 FrmBarcode.ShowDialog()
327 End Sub
328
329 Private Sub UnitMeasureToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UnitMeasureToolStripMenuItem.Click
330 If x_Access(xUser_Access) Then
331 FrmUNIT_MEASURE.ShowDialog()
332 End If
333 End Sub
334
335 Private Sub SalesReceiptToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalesReceiptToolStripMenuItem1.Click
336 'FrmSALES_REPORT_RECEIPT.ShowDialog()
337 Dim report As New FrmREPORTSDated
338 'If x_Access(xUser_Access) Then
339 globalFRM = "frmsales_report_receipt"
340 report.Show()
341 'End If
342 End Sub
343
344 Private Sub toolStripClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
345 FormClose(ActiveMdiChild)
346 End Sub
347
348 Private Sub ToolStripNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
349 FormAdd(ActiveMdiChild.Name)
350 End Sub
351
352 Private Sub ToolStripEdit_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
353 FormEdit(ActiveMdiChild.Name)
354 End Sub
355
356 Private Sub ToolStripDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
357 FormDelete(ActiveMdiChild.Name)
358 End Sub
359
360 Private Sub ToolStripSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
361 FormSearch(ActiveMdiChild.Name)
362 End Sub
363
364 Private Sub ToolStripPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
365 FormPrint(ActiveMdiChild.Name)
366 End Sub
367
368 Private Sub ToolStripLock_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
369 FrmLOGIN.ShowDialog()
370 End Sub
371
372 Private Sub AuditTrailToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AuditTrailToolStripMenuItem.Click
373 If x_Access(xUser_Access) Then
374 With lstShortCut.Items
375 If Not FrmAUDIT_TRAIL.IsHandleCreated Then
376 .Add("Users Log", 20)
377 End If
378 End With
379 FrmAUDIT_TRAIL.MdiParent = Me
380 FrmAUDIT_TRAIL.WindowState = FormWindowState.Maximized
381 FrmAUDIT_TRAIL.Show()
382 End If
383 End Sub
384
385 Private Sub ToolStripRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
386 RefreshList(ActiveMdiChild.Name)
387 End Sub
388
389 Private Sub ProductsReorderPointToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductsReorderPointToolStripMenuItem.Click
390 cmdProductReorder_Click(0, AcceptButton)
391 End Sub
392
393 Private Sub LinkMaintain_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkMaintain.LinkClicked
394 Click_Maintain()
395 End Sub
396
397 Private Sub LinkPurchasing_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkPurchasing.LinkClicked
398 Click_Purchasing()
399 End Sub
400
401 Private Sub LinkSales_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkSales.LinkClicked
402 Click_Sales()
403 End Sub
404
405 Private Sub cmdProductListing_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdProductListing.Click
406 'If x_Access(xUser_Access) Then
407 With lstShortCut.Items
408 If Not FrmCatList.IsHandleCreated Then
409 .Add("Product Listing", 11)
410 End If
411 End With
412 FrmCatList.MdiParent = Me
413 'FrmCatList.WindowState = FormWindowState.Maximized
414 FrmCatList.Height = Me.Height
415 FrmCatList.Width = Me.Width
416 FrmCatList.Show()
417 'End If
418 End Sub
419
420 Private Sub cmdManageSuppliers_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdManageSuppliers.Click
421 'If x_Access(xUser_Access) Then
422 With lstShortCut.Items
423 If Not FrmSuppliersList.IsHandleCreated Then
424 .Add("Manage Suppliers", 12)
425 End If
426 End With
427 FrmSuppliersList.MdiParent = Me
428 FrmSuppliersList.Width = Me.Width
429 FrmSuppliersList.Height = Me.Height
430 FrmSuppliersList.Show()
431 ' End If
432 End Sub
433
434 Private Sub lstShortCut_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lstShortCut.MouseDoubleClick
435 Select Case lstShortCut.FocusedItem.Text
436 Case "Product Listing"
437 FrmCatList.BringToFront()
438 Case "Manage Suppliers"
439 FrmSuppliersList.BringToFront()
440 Case "Order and Receive"
441 FrmPURCHASEORDER.BringToFront()
442 Case "Stock Monitoring"
443 frmSTOCKMONITORINGBALANCES.BringToFront()
444 Case "Critical Product(s)"
445 FrmPRODUCTS_REORDER.BringToFront()
446 Case "Defective Stocks"
447 FrmDEFFECTIVE_RETURN_STOCKS.BringToFront()
448 Case "Ordering Kiosk"
449 FrmORDER_FORM.BringToFront()
450 Case "Cashiering"
451 FrmPOSCASHIER.BringToFront()
452 Case "Sales Receipt"
453 FrmPOSRECEIPT_LIST.BringToFront()
454 Case "Physical Counting"
455 FrmPhysicalCount.BringToFront()
456 Case "Category Item List"
457 FrmCatITEMList.BringToFront()
458 Case "Supplier Products"
459 FrmSUPPLIERSPRODUCT.BringToFront()
460 Case "Users Log"
461 FrmAUDIT_TRAIL.BringToFront()
462 End Select
463 End Sub
464
465 Private Sub cmdUsers_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdUsers.Click
466 'If x_Access(xUser_Access) Then
467 FrmSysUser.ShowDialog()
468 ' End If
469 End Sub
470
471 Private Sub cmdOrderReceive_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOrderReceive.Click
472 'If x_Access(xUser_Access) Then
473 With lstShortCut.Items
474 If Not FrmPURCHASEORDER.IsHandleCreated Then
475 .Add("Order and Receive", 13)
476 End If
477 End With
478 FrmPURCHASEORDER.MdiParent = Me
479 FrmPURCHASEORDER.Width = Me.Width
480 FrmPURCHASEORDER.Height = Me.Height
481 FrmPURCHASEORDER.Show()
482 'End If
483 End Sub
484
485 Private Sub cmdStockMonitoring_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStockMonitoring.Click
486 'If x_Access(xUser_Access) Then
487 With lstShortCut.Items
488 If Not frmSTOCKMONITORINGBALANCES.IsHandleCreated Then
489 .Add("Stock Monitoring", 3)
490 End If
491 End With
492 frmSTOCKMONITORINGBALANCES.MdiParent = Me
493 frmSTOCKMONITORINGBALANCES.Width = Me.Width
494 frmSTOCKMONITORINGBALANCES.Height = Me.Height
495 frmSTOCKMONITORINGBALANCES.Show()
496 'End If
497 End Sub
498
499 Private Sub cmdProductReorder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdProductReorder.Click
500 'If x_Access(xUser_Access) Then
501 With lstShortCut.Items
502 If Not FrmPRODUCTS_REORDER.IsHandleCreated Then
503 .Add("Critical Product(s)", 14)
504 End If
505 End With
506 FrmPRODUCTS_REORDER.MdiParent = Me
507 FrmPRODUCTS_REORDER.Width = Me.Width
508 FrmPRODUCTS_REORDER.Height = Me.Height
509 FrmPRODUCTS_REORDER.Show()
510 'End If
511 End Sub
512
513 Private Sub cmdDefective_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDefective.Click
514 'If x_Access(xUser_Access) Then
515 With lstShortCut.Items
516 If Not FrmDEFFECTIVE_RETURN_STOCKS.IsHandleCreated Then
517 .Add("Defective Stocks", 15)
518 End If
519 End With
520 FrmDEFFECTIVE_RETURN_STOCKS.MdiParent = Me
521 FrmDEFFECTIVE_RETURN_STOCKS.Width = Me.Width
522 FrmDEFFECTIVE_RETURN_STOCKS.Height = Me.Height
523 FrmDEFFECTIVE_RETURN_STOCKS.Show()
524 'End If
525 End Sub
526
527 Private Sub cmdBusInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBusInfo.Click
528 'If x_Access(xUser_Access) Then
529 FrmBUSINESS_INFO.ShowDialog()
530 ' End If
531 End Sub
532
533 Private Sub Click_Maintain()
534 Dim i As Integer
535 'LinkMaintain.Enabled = False
536 If minMaintenance = 0 Then
537 For i = 0 To 177
538 PanelMaintain.Height = PanelMaintain.Height + 1
539 PanelPurchasing.Top = PanelMaintain.Height + 20
540 PanelSales.Top = (PanelPurchasing.Height + PanelPurchasing.Top)
541 minMaintenance = minMaintenance + PanelMaintain.Height
542 Application.DoEvents()
543 Next
544 Else
545 'MsgBox(Min)
546 For i = 0 To 177
547 PanelMaintain.Height = PanelMaintain.Height - 1
548 PanelPurchasing.Top = (PanelMaintain.Height + 30) - 20
549 PanelSales.Top = (PanelPurchasing.Height + PanelPurchasing.Top)
550 Application.DoEvents()
551 Next
552 minMaintenance = 0
553 End If
554 'LinkMaintain.Enabled = True
555 End Sub
556
557 Private Sub Click_Purchasing()
558 Dim i As Integer
559 'LinkPurchasing.Enabled = False
560 If minPurchase = 0 Then
561 For i = 0 To 170
562 PanelPurchasing.Height = PanelPurchasing.Height + 1
563 PanelSales.Top = (PanelPurchasing.Height + PanelPurchasing.Top) + 15
564 minPurchase = minPurchase + PanelPurchasing.Height
565 Application.DoEvents()
566 Next
567 Else
568 'MsgBox(Min)
569 For i = 0 To 170
570 PanelPurchasing.Height = PanelPurchasing.Height - 1
571 PanelSales.Top = (PanelPurchasing.Height + PanelPurchasing.Top) - 2
572 Application.DoEvents()
573 Next
574 minPurchase = 0
575 End If
576 'LinkPurchasing.Enabled = True
577 End Sub
578
579 Private Sub Click_Sales()
580 Dim i As Integer
581 'LinkSales.Enabled = False
582 If minSales = 0 Then
583 For i = 0 To 120
584 PanelSales.Height = PanelSales.Height + 1
585 'PanelSales.Top = (PanelPurchasing.Height + PanelPurchasing.Top) + 15
586 minSales = minSales + PanelPurchasing.Height
587 Application.DoEvents()
588 Next
589 Else
590 'MsgBox(Min)
591 For i = 0 To 120
592 PanelSales.Height = PanelSales.Height - 1
593 'PanelSales.Top = (PanelPurchasing.Height + PanelPurchasing.Top) - 5
594 Application.DoEvents()
595 Next
596 minSales = 0
597 End If
598 'LinkSales.Enabled = True
599 End Sub
600
601 Private Sub cmdClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdClose.Click
602 FormClose(ActiveMdiChild)
603 End Sub
604
605 Private Sub cmdNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdNew.Click
606 FormAdd(ActiveMdiChild.Name)
607 End Sub
608
609 Private Sub cmdEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEdit.Click
610 FormEdit(ActiveMdiChild.Name)
611 End Sub
612
613 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
614 If xUser_Access = "Administrator" Then
615 pnadvisory_Admin.BringToFront()
616 pnadvisory_Admin.Visible = True
617 pnadvisory_Admin.Left = pnadvisory_Admin.Left - 1.3
618 If pnadvisory_Admin.Left <= (pnadvisory_Admin.Width * -1) Then
619 pnadvisory_Admin.Left = Me.Width + 150
620 End If
621 'If xSlidePanel <= -10 Then
622 ' pnadvisory_Admin.Left = Me.Width + 150
623 'End If
624 ElseIf xUser_Access = "Cashier" Then
625 pnAdvisory_Cashier.BringToFront()
626 pnAdvisory_Cashier.Visible = True
627 pnAdvisory_Cashier.Left = pnAdvisory_Cashier.Left - 1.3
628 If pnAdvisory_Cashier.Left <= (pnAdvisory_Cashier.Width * -1) Then
629 pnAdvisory_Cashier.Left = Me.Width + 150
630 End If
631 ElseIf xUser_Access = "Stock Room" Then
632 pnAdvisory_Stock.BringToFront()
633 pnAdvisory_Stock.Visible = True
634 pnAdvisory_Stock.Left = pnAdvisory_Stock.Left - 1.3
635 If pnAdvisory_Stock.Left <= (pnAdvisory_Stock.Width * -1) Then
636 pnAdvisory_Stock.Left = Me.Width + 150
637 End If
638 ElseIf xUser_Access = "Sales Agent" Then
639 pnAdvisory_SalesAgent.BringToFront()
640 pnAdvisory_SalesAgent.Visible = True
641 pnAdvisory_SalesAgent.Left = pnAdvisory_SalesAgent.Left - 1.3
642 If pnAdvisory_SalesAgent.Left <= (pnAdvisory_SalesAgent.Width * -1) Then
643 pnAdvisory_SalesAgent.Left = Me.Width + 150
644 End If
645 End If
646 End Sub
647
648 Private Sub cmdCustomerOrder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCustomerOrder.Click
649 'If x_Access(xUser_Access) Then
650 With lstShortCut.Items
651 If Not FrmORDER_FORM.IsHandleCreated Then
652 .Add("Ordering Kiosk", 7)
653 End If
654 End With
655 FrmORDER_FORM.MdiParent = Me
656 FrmORDER_FORM.Width = Me.Width
657 FrmORDER_FORM.Height = Me.Height
658 FrmORDER_FORM.Show()
659 'End If
660 End Sub
661
662
663 Private Sub cmdCashiering_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCashiering.Click
664 'If x_Access(xUser_Access) Then
665 With lstShortCut.Items
666 If Not FrmPOSCASHIER.IsHandleCreated Then
667 .Add("Cashiering", 17)
668 End If
669 End With
670 FrmPOSCASHIER.MdiParent = Me
671 'FrmPOSCASHIER.WindowState = FormWindowState.Maximized
672 FrmPOSCASHIER.Width = Me.Width
673 FrmPOSCASHIER.Height = Me.Height
674 FrmPOSCASHIER.Show()
675 'End If
676 End Sub
677
678 Private Sub MDIMain_MdiChildActivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MdiChildActivate
679 'Debug.Print("test4")
680 ActivatedToolbar(ActiveMdiChild)
681 End Sub
682
683 Private Sub MDIMain_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
684 'MsgBox(1)
685 With TSHoldRight
686 PanelShortCut.Top = .Top - 15
687 PanelShortCut.Left = .Left - 1
688 End With
689 PanelHoldAdvisory.Top = TSHoldAdvisory.Top
690 PanelAdvisory.Top = PanelHoldAdvisory.Top
691 PanelShortCut.Height = (Me.Height - (TSHoldButtons.Height + TSHoldAdvisory.Height + (TSHoldAdvisory.Height / 2) + 30))
692 lstShortCut.Height = PanelShortCut.Height - 27
693 End Sub
694
695 Private Sub cmdRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRefresh.Click
696 RefreshList(ActiveMdiChild.Name)
697 End Sub
698
699 Private Sub cmdPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPrint.Click
700 FormPrint(ActiveMdiChild.Name)
701 End Sub
702
703 Private Sub cmdSalesReceipt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSalesReceipt.Click
704 'If x_Access(xUser_Access) Then
705 With lstShortCut.Items
706 If Not FrmPOSRECEIPT_LIST.IsHandleCreated Then
707 .Add("Sales Receipt", 16)
708 End If
709 End With
710 FrmPOSRECEIPT_LIST.MdiParent = Me
711 FrmPOSRECEIPT_LIST.WindowState = FormWindowState.Maximized
712 'FrmORDER_FORM.Width = Me.Width
713 'FrmORDER_FORM.Height = Me.Height
714 FrmPOSRECEIPT_LIST.Show()
715 'End If
716 End Sub
717
718
719 Private Sub cmdDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDelete.Click
720 FormDelete(ActiveMdiChild.Name)
721 End Sub
722
723 Private Sub cmdSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSearch.Click
724 FormSearch(ActiveMdiChild.Name)
725 End Sub
726
727 Private Sub cmdPhysical_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPhysical.Click
728 'If x_Access(xUser_Access) Then
729 With lstShortCut.Items
730 If Not FrmPhysicalCount.IsHandleCreated Then
731 .Add("Physical Counting", 10)
732 End If
733 End With
734 FrmPhysicalCount.MdiParent = Me
735 'FrmPhysicalCount.WindowState = FormWindowState.Maximized
736 FrmORDER_FORM.Width = Me.Width
737 FrmORDER_FORM.Height = Me.Height
738 FrmPhysicalCount.Show()
739 'End If
740 End Sub
741
742 Private Sub tmrclock_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrclock.Tick
743 lbltime.Text = TimeOfDay
744 End Sub
745
746 Private Sub cmdAuditTrail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAuditTrail.Click
747 'If x_Access(xUser_Access) Then
748 With lstShortCut.Items
749 If Not FrmAUDIT_TRAIL.IsHandleCreated Then
750 .Add("Users Log", 20)
751 End If
752 End With
753 ' frmSTOCKMONITORINGBALANCES.MdiParent = Me
754 ' frmSTOCKMONITORINGBALANCES.Width = Me.Width
755 ' frmSTOCKMONITORINGBALANCES.Height = Me.Height
756 ' frmSTOCKMONITORINGBALANCES.Show()
757
758 FrmAUDIT_TRAIL.MdiParent = Me
759 FrmAUDIT_TRAIL.Width = Me.Width
760 FrmAUDIT_TRAIL.Height = Me.Height
761 FrmAUDIT_TRAIL.Show()
762 'End If
763 End Sub
764
765 Private Sub cmdLock_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLock.Click
766 xclose()
767 lstShortCut.Items.Clear()
768 sqlSTR = "UPDATE TBL_Audit_Log SET LOGOUT ='" & TimeOfDay & "' WHERE User_ID =" & xUser_ID & " AND LOG_ID=" & LOGID
769 ExecuteSQLQuery(sqlSTR)
770 LinkMaintain.Enabled = False
771 LinkPurchasing.Enabled = False
772 LinkSales.Enabled = False
773 'Maintenance
774 cmdProductListing.Enabled = False
775 cmdManageSuppliers.Enabled = False
776 cmdUsers.Enabled = False
777 cmdAuditTrail.Enabled = False
778 cmdBusInfo.Enabled = False
779 'Purchasing
780 cmdOrderReceive.Enabled = False
781 cmdStockMonitoring.Enabled = False
782 cmdPhysical.Enabled = False
783 cmdProductReorder.Enabled = False
784 cmdDefective.Enabled = False
785 'Sales
786 cmdCustomerOrder.Enabled = False
787 cmdCashiering.Enabled = False
788 cmdSalesReceipt.Enabled = False
789 Timer1.Enabled = False
790 pnadvisory_Admin.Visible = False
791 pnAdvisory_Stock.Visible = False
792 pnAdvisory_Cashier.Visible = False
793 pnAdvisory_SalesAgent.Visible = False
794 tmrcritical.Enabled = False
795 FrmLOGIN.ShowDialog()
796 End Sub
797
798 Public Function aget()
799
800 If UCase(xUser_Access) = UCase("Administrator") Then
801 LinkMaintain.Enabled = True
802 LinkPurchasing.Enabled = True
803 LinkSales.Enabled = True
804 'Maintenance
805 cmdProductListing.Enabled = True
806 cmdManageSuppliers.Enabled = True
807 cmdUsers.Enabled = True
808 cmdAuditTrail.Enabled = True
809 cmdBusInfo.Enabled = True
810 'Purchasing
811 cmdOrderReceive.Enabled = True
812 cmdStockMonitoring.Enabled = True
813 cmdPhysical.Enabled = True
814 cmdProductReorder.Enabled = True
815 cmdDefective.Enabled = True
816 'Sales
817 cmdCustomerOrder.Enabled = True
818 cmdCashiering.Enabled = True
819 cmdSalesReceipt.Enabled = True
820 ElseIf UCase(xUser_Access) = UCase("Cashier") Then
821 'Maintenance
822 cmdProductListing.Enabled = False
823 cmdManageSuppliers.Enabled = False
824 cmdUsers.Enabled = True
825 cmdAuditTrail.Enabled = False
826 cmdBusInfo.Enabled = False
827 'Purchasing
828 cmdOrderReceive.Enabled = False
829 cmdStockMonitoring.Enabled = False
830 cmdPhysical.Enabled = False
831 cmdProductReorder.Enabled = False
832 cmdDefective.Enabled = False
833 'Sales
834 cmdCustomerOrder.Enabled = False
835 cmdCashiering.Enabled = True
836 cmdSalesReceipt.Enabled = True
837
838 LinkMaintain.Enabled = False
839 LinkPurchasing.Enabled = False
840 LinkSales.Enabled = True
841
842 ElseIf UCase(xUser_Access) = UCase("Stock Room") Then
843 'Maintenance
844 cmdProductListing.Enabled = False
845 cmdManageSuppliers.Enabled = False
846 cmdUsers.Enabled = True
847 cmdAuditTrail.Enabled = False
848 cmdBusInfo.Enabled = False
849 'Purchasing
850 cmdOrderReceive.Enabled = True
851 cmdStockMonitoring.Enabled = True
852 cmdPhysical.Enabled = True
853 cmdProductReorder.Enabled = True
854 cmdDefective.Enabled = True
855 'Sales
856 cmdCustomerOrder.Enabled = False
857 cmdCashiering.Enabled = False
858 cmdSalesReceipt.Enabled = False
859
860 LinkMaintain.Enabled = False
861 LinkPurchasing.Enabled = True
862 LinkSales.Enabled = False
863 ElseIf UCase(xUser_Access) = UCase("Sales Agent") Then
864 'Maintenance
865 cmdProductListing.Enabled = True
866 cmdManageSuppliers.Enabled = True
867 cmdUsers.Enabled = True
868 cmdAuditTrail.Enabled = False
869 cmdBusInfo.Enabled = False
870 'Purchasing
871 cmdOrderReceive.Enabled = True
872 cmdStockMonitoring.Enabled = True
873 cmdPhysical.Enabled = True
874 cmdProductReorder.Enabled = True
875 cmdDefective.Enabled = True
876 'Sales
877 cmdCustomerOrder.Enabled = True
878 cmdCashiering.Enabled = False
879 cmdSalesReceipt.Enabled = False
880
881 LinkMaintain.Enabled = True
882 LinkPurchasing.Enabled = True
883 LinkSales.Enabled = True
884 End If
885 aget = 0
886 End Function
887
888 Private Sub cmdHome_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdHome.Click
889 FrmBG.BringToFront()
890 End Sub
891
892 Private Sub lstShortCut_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstShortCut.SelectedIndexChanged
893
894 End Sub
895
896 Private Sub pnadvisory_Admin_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles pnadvisory_Admin.Paint
897
898 End Sub
899
900 Private Sub tmrcritical_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrcritical.Tick
901 critical = critical + 1
902
903 If (critical Mod 2) = 0 Then
904 ' MsgBox(critical & " 1")
905 'cmdProductReorder.Enabled = False
906 cmdProductReorder.ForeColor = Color.Red
907 Else
908 cmdProductReorder.ForeColor = Color.Black
909 'MsgBox(critical & " 2")
910 'cmdProductReorder.Enabled = True
911 End If
912 End Sub
913
914 Private Sub ProductPacingReportToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductPacingReportToolStripMenuItem.Click
915 'Dim report As New FrmREPORTSDated
916 ' If x_Access(xUser_Access) Then
917 'Audit_Trail(xUser_ID, "Print Report - Purchase Order Stocks")
918 'globalFRM = "frmproduct_pacing"
919 'FrmREPORTSDated.MdiParent = Me
920 'FrmREPORTSDated.Width = Me.Width
921 'FrmREPORTSDated.Height = Me.Height
922 'report.Show()
923 'FrmPURCHASE_ORDER_PRINT.ShowDialog()
924 ' End If
925 End Sub
926
927 Private Sub tmr_Print_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmr_Print.Tick
928 i_Print += 1
929 If i_Print = 1 Then
930 lblprint.Text = "Please wait while printing records."
931 ElseIf i_Print = 2 Then
932 lblprint.Text = "Please wait while printing records.."
933 ElseIf i_Print = 3 Then
934 lblprint.Text = "Please wait while printing records..."
935 ElseIf i_Print = 4 Then
936 lblprint.Text = "Please wait while printing records...."
937 i_Print = 0
938 End If
939 End Sub
940
941 Private Sub FastMovingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FastMovingToolStripMenuItem.Click
942 Dim report As New FrmREPORTSDated
943 globalFRM = "frmproduct_pacing_fast_moving"
944 report.Show()
945 End Sub
946
947 Private Sub SlowMovingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SlowMovingToolStripMenuItem.Click
948 Dim report As New FrmREPORTSDated
949 globalFRM = "frmproduct_pacing_slow_moving"
950 report.Show()
951 End Sub
952
953 Private Sub HelpToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
954 'MsgBox(Application.StartupPath)
955 System.Diagnostics.Process.Start(Application.StartupPath & "\Gazuto Manual.doc")
956 End Sub
957
958 Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
959 FrmAbout.ShowDialog()
960 End Sub
961 End Class
